home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 5 / developer source - volume 5.iso / delph / may96 / rippf103.gif < prev    next >
Graphics Interchange Format  |  1996-11-16  |  8.2 KB  |  470x431  |  4-bit (14 colors)
   ocr: TILE.PAS D X Tile procedure TForml.FormPaint(Sender: TObject); var xPos, YPos, bmpWidth, bmpHeight : LongInt; begin with mybitmap do begin bmpWidth := Width; bmpHeight := Height; end; YPos := 0; while YPos < Height do begin XPos : 0; while XPos < Width do begin Canvas.Draw (xPos, YPos, myBitmap); XPos := XPos + bmpWidth; end; YPos := YPos + bmpHeight; end; end; 40: 1 Modified Insert